home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / gfa / gfaexprt.lzh / GFAXPERT.LIB / DEFFN.LST < prev    next >
Encoding:
File List  |  1986-10-19  |  1.3 KB  |  37 lines
  1. ' *****************
  2. ' *** DEFFN.LST ***
  3. ' *****************
  4. '
  5. DEFWRD "a-z"
  6. '
  7. DEFFN digit(number,place)=VAL(MID$(STR$(number),place,1))
  8. DEFFN div(number,divisor)=(MOD(number,divisor)=0)
  9. '
  10. DEFFN center$(text$)=SPACE$((scrn.col.max-LEN(text$))/2)+text$
  11. DEFFN flush.r$(text$)=SPACE$(scrn.col.max-LEN(text$))+text$
  12. DEFFN clear$(line)=CHR$(27)+"Y"+CHR$(33)+CHR$(32+line)+CHR$(27)+"l"
  13. '
  14. DEFFN rev$(txt$)=CHR$(27)+"p"+txt$+CHR$(27)+"q"
  15. DEFFN txt.color$(txt$,letter.col,back.col)=CHR$(27)+"b"+CHR$(color.index(letter.col))+CHR$(27)+"c"+CHR$(color.index(back.col))+" "+txt$+" "
  16. DEFFN ink$(color)=CHR$(27)+"b"+CHR$(color.index(color))
  17. DEFFN paper$(color)=CHR$(27)+"c"+CHR$(color.index(color))
  18. '
  19. DEFFN last.record(buffer,field.len)=LOF(#buffer)/field.len
  20. '
  21. DEFFN fun.key$(n)=CHR$(0)+CHR$(n+58)
  22. DEFFN s.fun.key$(n)=CHR$(0)+CHR$(n+83)
  23. '
  24. DEFFN log(grondgetal,x#)=LOG(x#)/LOG(grondgetal)
  25. '
  26. DEFFN arccot(x#)=ATN(-x#)+PI/2
  27. DEFFN sinh(x#)=(EXP(x#)-EXP(-x#))/2
  28. DEFFN cosh(x#)=(EXP(x#)+EXP(-x#))/2
  29. DEFFN tanh(x#)=(EXP(x#)-EXP(-x#))/(EXP(x#)+EXP(-x#))
  30. DEFFN coth(x#)=1/FN tanh(x#)
  31. DEFFN arsinh(x#)=LOG(x#+SQR(x#*x#+1))
  32. DEFFN arcosh(x#)=LOG(x#+SQR(x#*x#-1))
  33. DEFFN artanh(x#)=LOG((1+x#)/(1-x#))/2
  34. DEFFN arcoth(x#)=LOG((x#+1)/(x#-1))/2
  35. '
  36. DEFFN word(adr%)=ADD(BYTE{SUCC(adr%)},MUL(256,BYTE{adr%}))
  37.